home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / scripts.arc / CONNECT.SLT < prev    next >
Text File  |  1988-11-01  |  2KB  |  55 lines

  1. /////////////////////////////////////////////////////////////////////////
  2. //          CONNECT.SLT  -  by Terry Robertson (October 1988)          //
  3. // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ //
  4. //                                                                     //
  5. //  This script prints details of current connection to screen. Upon   //
  6. //  your modem signalling that you are connected to the host, the      //
  7. //  following information can be flashed to the top of the Terminal    //
  8. //  screen:                                                            //
  9. //                                                                     //
  10. //  Name and phone number of host system                               //
  11. //  Baud rate connected at                                             //
  12. //  Today's date and the current time                                  //
  13. //                                                                     //
  14. //  This script is most useful when it is "called" from a standard     //
  15. //  log-on script.                                                     //
  16. //                                                                     //
  17. /////////////////////////////////////////////////////////////////////////
  18.  
  19. str NOL[]   = "Not online";
  20. str connected[80] = "Connected to ";
  21. str now[80] = "It is now ";
  22. str tm[16];
  23. str dt[8];
  24. str baud[16];
  25.  
  26. Main()
  27. {
  28. if(carrier())
  29. {
  30. clear_scr();
  31. strcat(connected, _entry_name);
  32. strcat(connected, " on ");
  33. strcat(connected, _entry_num);
  34. date(curtime(), dt);
  35. time(curtime(), tm);
  36. strcat(now, tm);
  37. strcat(now, " on ");
  38. strcat(now, dt);
  39.  
  40. box(6, 0, 73, 3, 2, 0, 30);
  41. pstraxy(connected, 10, 1, 31);
  42. pstra(" at ", 31);
  43. itos(get_baud(), baud);
  44. pstra(baud, 31);
  45. pstraxy(now, 10, 2, 31);
  46.  
  47. gotoxy(0, 5);
  48. return;
  49. }
  50.  else if (carrier(-1))
  51.  
  52.  pstraxy(NOL, 10, 1, 31);
  53.  
  54. }
  55.